﻿Imports TMySQL
Public Class frmTrigger
    Implements ITabForm
    Private _Trigger As TMyTrigger

    Public Sub New(ByVal ATrigger As TMyTrigger)
        Me.New()
        _Trigger = ATrigger
        InitFrm()
    End Sub
    Private Sub New()
        ' この呼び出しは、Windows フォーム デザイナで必要です。
        InitializeComponent()
        ' InitializeComponent() 呼び出しの後で初期化を追加します。
    End Sub
    Private Sub InitFrm()
        txtTriggerSchema.Text = _Trigger.TriggerSchema
        txtTriggerName.Text = _Trigger.TriggerName
        txtActionOrientation.Text = _Trigger.ActionOrientation
        txtEventManipulation.Text = _Trigger.EventManipulation
        txtActionTiming.Text = _Trigger.ActionTiming
        txtEventObjectSchema.Text = _Trigger.EventObjectSchema
        txtEventObjectTable.Text = _Trigger.EventObjectTable
        txtSource.Text = _Trigger.Source
        frmMain.GeneralSettings.ApplyAll(Me)
        frmMain.EditorSettings.ApplyAll(Me)
        frmMain.GridSettings.ApplyAll(Me)
    End Sub
End Class